home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnetjam2.lha / CNetJam2 / cnet / pfiles / fido / FreqTester < prev    next >
Text File  |  1995-01-27  |  2KB  |  43 lines
  1. /**************************************************************************\
  2.  
  3.               $VER: FreqTester, v1.0 (27-Jan-95) by Dotoran!
  4.  
  5.                              for use with
  6.  
  7.            FFRS (Fido File Request Server) by Francis Wacquier!
  8.  
  9.     This is a CNet Arexx file, meant to be run from WITHIN CNet AMiga. It
  10. was written as a quick and direct way of TESTING how your FREQ setup looks,
  11. acts, and performs when using FFRS, v2.2b9 by Francis Wacquier.
  12.  
  13.     My sincere THANKS to Francis for both putting out such a WONDERFUL file,
  14. and for helping me with it's setup, when I was very brain-dead trying to do
  15. it myself!
  16.  
  17. \**************************************************************************/
  18. options results ; tr=transmit ; se=sendstring ; changewhere 'FreqTester'
  19.  
  20. node = "1:260/121.0"            /* Make this your FIDO-Node Address!      */
  21. name = "David Weeks"            /* Make this the SysOp's Real Name!!      */
  22.  
  23. infile=translate(node,'..',':/')||'.REQ'
  24. tr 'f1@4HFreqTest, v1.0n2Create a FREQ file now...'
  25. cleareditor ; calleditor 10 ; st=result ; getuser 1109865 ; abo=result
  26. if st=0 | abo~=1 then do ; tr 'Aborted!' ; exit ; end
  27. saveeditor 'outbound:'||infile ; tr 'Working...' ; cleareditor
  28. address command "FREQ:Bin/FFRS FREQ:ffrs.cfg outbound:"||infile||" ram:outfile 14400 "||node||" "||name
  29. tr 'n1Deleting the "'infile'" file from OUTBOUND:...'
  30. address command "delete outbound:"infile
  31. tr 'n1Copying Mail Packet to INBOUND:...'
  32. address command "copy outbound:#?.pkt inbound:"
  33. tr 'n1Deleting Mail Packet from OUTBOUND:'
  34. call open(f1,'ram:outfile','r');a=readln(f1);call close(f1)
  35. a=substr(a,2);address command "delete "a
  36. tr 'n1Here''s what the "outfile" looks like:n1*4ram:outfile}'
  37. address command "delete ram:outfile"
  38. tr 'Running CNet Toss to pull in Mail-Return Packet...'
  39. address command "cnet:toss"
  40. tr 'n1Now, use the "MR" command to READ the Freq-Request Report!'
  41. /** Last Edited: 27-Jan-95 ************************************************\
  42. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  43.